home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2a.lha / p4-1.2a / lib_f / p4_fmaster.c < prev    next >
C/C++ Source or Header  |  1992-10-19  |  696b  |  39 lines
  1. #include "p4.h"
  2. #include "p4_sys.h"
  3. #include "p4_fort.h"
  4.  
  5. VOID p4init_()
  6. {
  7.     int argc = 0;
  8.     char *argv[20];
  9.     char *q;
  10.     int argcnt;
  11.     
  12.     p4_dprintfl(30, "enter fortran p4init\n");
  13.     numargc_(&argcnt);
  14.     while(argc <= argcnt)
  15.     {
  16.     q = (char *)malloc(200);
  17.     /* args Fortran subroutine */
  18.     args_(&argc,q);
  19.     argv[argc] = q;
  20.     q = (char *)index(argv[argc],' ');
  21.     *q = '\0';
  22.     p4_dprintfl(30, "\n fortran argv[%d] = %s\n",argc,argv[argc]);
  23.     ++argc;
  24.     }
  25.     p4_initenv(&argc,argv);
  26.     p4_dprintfl(30, "exit fortran p4init\n");
  27. }
  28.  
  29. VOID p4crpg_()
  30. {
  31.     if (p4_create_procgroup() < 0)
  32.     p4_error("p4crpg_: p4_create_procgroup failed",0);
  33. }
  34.  
  35. VOID p4cleanup_()
  36. {
  37.     p4_wait_for_end();
  38. }
  39.